home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / strike9.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.1 KB  |  115 lines
  1. 90  <UNK! {0009}>DIM A(9),D(4),U(9)
  2. 110  PRINT
  3. 150  PRINT
  4. 160  PRINT
  5. 170  PRINT "DO YOU NEED INSTRUCTIONS (YES/NO?)"
  6. 180  INPUT R$
  7. 185  RANDOMIZE
  8. 190  IF LEFT$(R$,1) = "N" THEN 340
  9. 200  IF LEFT$(R$,1) <> "Y" THEN 170
  10. 210  PRINT "BOARD WITH 9 NOS. : 1 2 3 4 5 6 7 8 9"
  11. 220  PRINT
  12. 250  PRINT "YOU WILL BE GIVEN A CHART OF THE NUMBERS YOU HAVE LEFT."
  13. 280  PRINT "TAKE OFF, ONE AT A TIME.  THE NUMBERS YOU TAKE OFF"
  14. 290  PRINT "MUST ADD UP TO THE ROLL.  YOU WIN BY REMOVING EVERY"
  15. 300  PRINT "NUMBER FROM THE BOARD.  YOU LOSE IF YOU CANNOT<UNK! {0008}>T "
  16. 310  PRINT "REMOVE THE NUMBERS WITH THE ROLL YOU HAVE."
  17. 320  PRINT
  18. 340  PRINT
  19. 345  PRINT
  20. 350  PRINT "HERE IS THE BOARD:   "
  21. 360  REM SET UP THE BOARD
  22. 370  FOR B=1 TO 9
  23. 380  PRINT B;
  24. 390  A(B)=B
  25. 400  NEXT B
  26. 405  PRINT
  27. 410  C=INT(RND*6+1)+INT(RND*6+1)
  28. 420  PRINT"YOUR ROLL IS",C
  29. 430  T=0
  30. 435  J=0
  31. 440  FOR X=1 TO 9
  32. 445  IF A(X) < 1 THEN 460
  33. 446  J=J+1
  34. 447  U(J)=A(X)
  35. 450  T=T+A(X)
  36. 460  NEXT X
  37. 465  REM CHECK FOR LOSS
  38. 470  IF C>T THEN 950
  39. 480  IF C=T THEN 1120
  40. 490  FOR K=1 TO J
  41. 500  FOR L=1 TO J
  42. 510  FOR M=1 TO J
  43. 520  FOR N=1 TO J
  44. 530  IF N=K THEN 630
  45. 540  IF N=L THEN 630
  46. 550  IF N=M THEN 630
  47. 560  IF M=K THEN 640
  48. 570   IF M=L THEN 640
  49. 580  IF L=K THEN 650
  50. 590  IF C-U(K)=0 THEN 680
  51. 600  IF C-U(K)=U(N) THEN 680
  52. 610  IF C-U(K)-U(L)=U(N) THEN 680
  53. 620  IF C-U(K)-U(L)-U(M)=U(N) THEN 680
  54. 630  NEXT N
  55. 640  NEXT M
  56. 650  NEXT L
  57. 660  NEXT K
  58. 670  GOTO 950
  59. 680  FOR X=1 TO 4
  60. 690  D(X)=0
  61. 700  NEXT X
  62. 710  PRINT"NO. OF NUMBERS TO REMOVE"
  63. 720  INPUT E
  64. 730  IF INT(E)<>E THEN 760
  65. 740  IF E<1 THEN 760
  66. 750  IF E>4 THEN 760
  67. 755  GOTO 770
  68. 760  PRINT"ANSWER 1,2,3, OR 4"
  69. 765  GOTO 710
  70. 770  PRINT"WHAT  IS THE NUMBER"
  71. 780  FOR F=1 TO E
  72. 790  INPUT D(F)
  73. 800  Q=D(F)
  74. 805  IF A(Q) <>0 THEN 825
  75. 810  PRINT "YOU REMOVED IT BEFORE, TRY AGAIN"
  76. 820  GOTO 710
  77. 825  NEXT F
  78. 830  IF C<>(D(1)+D(2)+D(3)+D(4)) THEN 870
  79. 835  FOR F=1 TO E
  80. 840  A(D(F))=0
  81. 850  NEXT F
  82. 860  GOTO 880
  83. 870  PRINT "THOSE NUMBERS DONT  ADD UP TO YOUR ROLL, TRY AGAIN"
  84. 875  GOTO 710
  85. 880  PRINT "THE NUMBERS YOU HAVE LEFT TO REMOVE ARE"
  86. 890  FOR B=1 TO 9
  87. 900  IF A(B)=0 THEN 920
  88. 910  PRINT A(B);
  89. 920  NEXT B
  90. 930  PRINT
  91. 940  GOTO 410
  92. 950  PRINT"SORRY, YOU LOST THIS TIME."
  93. 960  T=0
  94. 970  FOR B=1TO 9
  95. 980  IF A(B)=0 THEN 1000
  96. 990  T=T+1
  97. 1000  NEXT B
  98. 1010  PRINT"THERE ARE ";T;"NUMBERS LEFT ON THE BOARD:  "
  99. 1020  FOR X=1 TO 9
  100. 1030  IF A(X)=0 THEN 1050
  101. 1040  PRINT A(X);
  102. 1050  NEXT X
  103. 1060  PRINT
  104. 1070  GOTO 1140
  105. 1120  PRINT TAB(15);"*** CONGRATULATIONS ***"
  106. 1130  PRINT TAB(25);"* YOU WON *"
  107. 1140  PRINT
  108. 1150  PRINT
  109. 1160  PRINT "PLAY ANOTHER GAME (YES/NO)"
  110. 1170  INPUT H$
  111. 1180  IF LEFT$(H$,1)="Y" THEN 170
  112. 1190  IF LEFT$(H$,1)<>"N" THEN 1160
  113. 1200  STOP
  114. 1210   END
  115.